home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
FGL402D.ZIP
/
EXBAS.ARJ
/
TEMP
/
08-12.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-01-20
|
501b
|
36 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
SetMemStatus& = SETMEM(-(153600+16))
OldMode = FGgetmode
FGsetmode 18
Status = FGalloccms(2)
FGgetentry 2, PageAddr, PageType
FGsetcolor 9
FGfillpage
FGsetcolor 15
FGbox 0, 639, 0, 479
FGwaitkey
FGcopypage 0, 2
FGsetmode OldMode
FGcursor 0
FGsetcolor 15
FGtext "Press any key.", 14
FGwaitkey
FGsetmode 18
FGsetentry 2, PageAddr, PageType
FGcopypage 2, 0
FGwaitkey
Status = FGfreepage(2)
FGsetmode OldMode
FGreset
END